home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / usr / sbin / update-alternatives < prev    next >
Encoding:
Text File  |  2007-03-06  |  26.0 KB  |  690 lines
  1. #!/usr/bin/perl --
  2.  
  3. $admindir="/var/lib/dpkg"; # This line modified by Makefile
  4. $dpkglibdir="/usr/lib/dpkg"; # This line modified by Makefile
  5. $version="1.13.24"; # This line modified by Makefile
  6. push (@INC, $dpkglibdir);
  7. require 'dpkg-gettext.pl';
  8. textdomain("dpkg");
  9.  
  10. ($0) = $0 =~ m:.*/(.+):;
  11.  
  12. # Global variables:
  13. #  $alink            Alternative we are managing (ie the symlink we're making/removing) (install only)
  14. #  $name             Name of the alternative (the symlink) we are processing
  15. #  $apath            Path of alternative we are offering            
  16. #  $apriority        Priority of link (only when we are installing an alternative)
  17. #  $mode             action to perform (display / install / remove / display / auto / config)
  18. #  $manual           update-mode for alternative (manual / auto)
  19. #  $state            State of alternative:
  20. #                       expected: alternative with highest priority is the active alternative
  21. #                       expected-inprogress: busy selecting alternative with highest priority
  22. #                       unexpected: alternative another alternative is active / error during readlink
  23. #                       nonexistent: alternative-symlink does not exist
  24. #  $link             Link we are working with
  25. #  @slavenames       List with names of slavelinks
  26. #  %slavenum         Map from name of slavelink to slave-index (into @slavelinks)
  27. #  @slavelinks       List of slavelinks (indexed by slave-index)
  28. #  %versionnum       Map from currently available versions into @versions and @priorities
  29. #  @versions         List of available versions for alternative
  30. #  %priorities       Map from @version-index to priority
  31. #  %slavepath        Map from (@version-index,slavename) to slave-path
  32.  
  33. $enoent=`$dpkglibdir/enoent` || die sprintf(_g("Cannot get ENOENT value from %s: %s"), "$dpkglibdir/enoent", $!);
  34. sub ENOENT { $enoent; }
  35.  
  36. sub version {
  37.     printf _g("Debian %s version %s.\n"), $0, $version;
  38.  
  39.     printf _g("
  40. Copyright (C) 1995 Ian Jackson.
  41. Copyright (C) 2000-2002 Wichert Akkerman.");
  42.  
  43.     printf _g("
  44. This is free software; see the GNU General Public Licence version 2 or
  45. later for copying conditions. There is NO warranty.
  46. ");
  47. }
  48.  
  49. sub usage {
  50.     printf _g(
  51. "Usage: %s [<option> ...] <command>
  52.  
  53. Commands:
  54.   --install <link> <name> <path> <priority>
  55.     [--slave <link> <name> <path>] ...
  56.                            add a group of alternatives to the system.
  57.   --remove <name> <path>   remove <path> from the <name> group alternative.
  58.   --remove-all <name>      remove <name> group from the alternatives system.
  59.   --auto <name>            switch the master link <name> to automatic mode.
  60.   --display <name>         display information about the <name> group.
  61.   --list <name>            display all targets of the <name> group.
  62.   --config <name>          show alternatives for the <name> group and ask the
  63.                            user to select which one to use.
  64.   --set <name> <path>      set <path> as alternative for <name>.
  65.   --all                    call --config on all alternatives.
  66.  
  67. <link> is the symlink pointing to /etc/alternatives/<name>.
  68.   (e.g. /usr/bin/pager)
  69. <name> is the master name for this link group.
  70.   (e.g. pager)
  71. <path> is the location of one of the alternative target files.
  72.   (e.g. /usr/bin/less)
  73. <priority> is an integer; options with higher numbers have higher priority in
  74.   automatic mode.
  75.  
  76. Options:
  77.   --altdir <directory>     change the alternatives directory.
  78.   --admindir <directory>   change the administrative directory.
  79.   --test                   don't do anything, just demonstrate.
  80.   --verbose                verbose operation, more output.
  81.   --quiet                  quiet operation, minimal output.
  82.   --help                   show this help message.
  83.   --version                show the version.
  84. "), $0;
  85. }
  86.  
  87. sub quit
  88. {
  89.     printf STDERR "%s: %s\n", $0, "@_";
  90.     exit(2);
  91. }
  92.  
  93. sub badusage
  94. {
  95.     printf STDERR "%s: %s\n\n", $0, "@_";
  96.     &usage;
  97.     exit(2);
  98. }
  99.  
  100. $altdir= '/etc/alternatives';
  101. $admindir= $admindir . '/alternatives';
  102. $testmode= 0;
  103. $verbosemode= 0;
  104. $mode='';
  105. $manual= 'auto';
  106. $|=1;
  107.  
  108. sub checkmanymodes {
  109.     return unless $mode;
  110.     &badusage(sprintf(_g("two modes specified: %s and --%s"), $_, $mode));
  111. }
  112.  
  113. while (@ARGV) {
  114.     $_= shift(@ARGV);
  115.     last if m/^--$/;
  116.     if (!m/^--/) {
  117.         &quit(sprintf(_g("unknown argument \`%s'"), $_));
  118.     } elsif (m/^--help$/) {
  119.         &usage; exit(0);
  120.     } elsif (m/^--version$/) {
  121.         &version; exit(0);
  122.     } elsif (m/^--test$/) {
  123.         $testmode= 1;
  124.     } elsif (m/^--verbose$/) {
  125.         $verbosemode= +1;
  126.     } elsif (m/^--quiet$/) {
  127.         $verbosemode= -1;
  128.     } elsif (m/^--install$/) {
  129.         &checkmanymodes;
  130.         @ARGV >= 4 || &badusage(_g("--install needs <link> <name> <path> <priority>"));
  131.         ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
  132.         $apriority =~ m/^[-+]?\d+/ || &badusage(_g("priority must be an integer"));
  133.         $mode= 'install';
  134.     } elsif (m/^--(remove|set)$/) {
  135.         &checkmanymodes;
  136.         @ARGV >= 2 || &badusage(sprintf(_g("--%s needs <name> <path>"), $1));
  137.         ($name,$apath,@ARGV) = @ARGV;
  138.         $mode= $1;
  139.     } elsif (m/^--(display|auto|config|list|remove-all)$/) {
  140.         &checkmanymodes;
  141.         @ARGV || &badusage(sprintf(_g("--%s needs <name>"), $1));
  142.         $mode= $1;
  143.         $name= shift(@ARGV);
  144.     } elsif (m/^--slave$/) {
  145.         @ARGV >= 3 || &badusage(_g("--slave needs <link> <name> <path>"));
  146.         ($slink,$sname,$spath,@ARGV) = @ARGV;
  147.         defined($aslavelink{$sname}) && &badusage(sprintf(_g("slave name %s duplicated"), $sname));
  148.         $aslavelinkcount{$slink}++ && &badusage(sprintf(_g("slave link %s duplicated"), $slink));
  149.         $aslavelink{$sname}= $slink;
  150.         $aslavepath{$sname}= $spath;
  151.     } elsif (m/^--altdir$/) {
  152.         @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "altdir"));
  153.         $altdir= shift(@ARGV);
  154.     } elsif (m/^--admindir$/) {
  155.         @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "admindir"));
  156.         $admindir= shift(@ARGV);
  157.     } elsif (m/^--all$/) {
  158.         $mode = 'all';
  159.     } else {
  160.         &badusage(sprintf(_g("unknown option \`%s'"), $_));
  161.     }
  162. }
  163.  
  164. defined($aslavelink{$name}) && &badusage(sprintf(_g("name %s is both primary and slave"), $name));
  165. $aslavelinkcount{$alink} && &badusage(sprintf(_g("link %s is both primary and slave"), $alink));
  166.  
  167. $mode || &badusage(_g("need --display, --config, --set, --install, --remove, --all, --remove-all or --auto"));
  168. $mode eq 'install' || !%aslavelink || &badusage(_g("--slave only allowed with --install"));
  169.  
  170. if ($mode eq 'all') {
  171.     &config_all();
  172. }
  173.  
  174. if (open(AF,"$admindir/$name")) {
  175.     $manual= &gl("manflag");
  176.     $manual eq 'auto' || $manual eq 'manual' || &badfmt(_g("manflag"));
  177.     $link= &gl("link");
  178.     while (($sname= &gl("sname")) ne '') {
  179.         push(@slavenames,$sname);
  180.         defined($slavenum{$sname}) && &badfmt(sprintf(_g("duplicate slave %s"), $sname));
  181.         $slavenum{$sname}= $#slavenames;
  182.         $slink= &gl("slink");
  183.         $slink eq $link && &badfmt(sprintf(_g("slave link same as main link %s"), $link));
  184.         $slavelinkcount{$slink}++ && &badfmt(sprintf(_g("duplicate slave link %s"), $slink));
  185.         push(@slavelinks,$slink);
  186.     }
  187.     while (($version= &gl("version")) ne '') {
  188.         defined($versionnum{$version}) && &badfmt(sprintf(_g("duplicate path %s"), $version));
  189.        if ( -r $version ) {
  190.            push(@versions,$version);
  191.            $versionnum{$version}= $i= $#versions;
  192.            $priority= &gl("priority");
  193.            $priority =~ m/^[-+]?\d+$/ || &badfmt(sprintf(_g("priority %s %s"), $version, $priority));
  194.            $priorities[$i]= $priority;
  195.            for ($j=0; $j<=$#slavenames; $j++) {
  196.                $slavepath{$i,$j}= &gl("spath");
  197.            }
  198.        } else {
  199.            # File not found - remove
  200.            &pr(sprintf(_g("Alternative for %s points to %s - which wasn't found.  Removing from list of alternatives."), $name, $version))
  201.              if $verbosemode > 0;
  202.            &gl("priority");
  203.            for ($j=0; $j<=$#slavenames; $j++) {
  204.                &gl("spath");
  205.            }
  206.        }
  207.     }
  208.     close(AF);
  209.     $dataread=1;
  210. } elsif ($! != &ENOENT) {
  211.     &quit(sprintf(_g("unable to open %s: %s"), "$admindir/$name", $!));
  212. }
  213.  
  214. if ($mode eq 'display') {
  215.     if (!$dataread) {
  216.         &pr(sprintf(_g("No alternatives for %s."), $name));
  217.     exit 1;
  218.     } else {
  219.         &pr(sprintf(_g("%s - status is %s."), $name, $manual));
  220.         if (defined($linkname= readlink("$altdir/$name"))) {
  221.             &pr(sprintf(_g(" link currently points to %s"), $linkname));
  222.         } elsif ($! == &ENOENT) {
  223.             &pr(_g(" link currently absent"));
  224.         } else {
  225.             &pr(sprintf(_g(" link unreadable - %s"), $!));
  226.         }
  227.         $best= '';
  228.         for ($i=0; $i<=$#versions; $i++) {
  229.             if ($best eq '' || $priorities[$i] > $bestpri) {
  230.                 $best= $versions[$i]; $bestpri= $priorities[$i];
  231.             }
  232.             &pr(sprintf(_g("%s - priority %s"), $versions[$i], $priorities[$i]));
  233.             for ($j=0; $j<=$#slavenames; $j++) {
  234.                 next unless length($tspath= $slavepath{$i,$j});
  235.                 &pr(sprintf(_g(" slave %s: %s"), $slavenames[$j], $tspath));
  236.             }
  237.         }
  238.         if ($best eq '') {
  239.             &pr(_g("No versions available."));
  240.         } else {
  241.             &pr(sprintf(_g("Current \`best' version is %s."), $best));
  242.         }
  243.     }
  244.     exit 0;
  245. }
  246.  
  247. if ($mode eq 'list') {
  248.     if ($dataread) {
  249.     for ($i = 0; $i<=$#versions; $i++) {
  250.         &pr("$versions[$i]");
  251.     }
  252.     }
  253.     exit 0;
  254. }
  255.  
  256. $best= '';
  257. for ($i=0; $i<=$#versions; $i++) {
  258.     if ($best eq '' || $priorities[$i] > $bestpri) {
  259.         $best= $versions[$i]; $bestpri= $priorities[$i];
  260.     }
  261. }
  262.  
  263. if ($mode eq 'config') {
  264.     if (!$dataread) {
  265.     &pr(sprintf(_g("No alternatives for %s."), $name));
  266.     } else {
  267.     &config_alternatives($name);
  268.     }
  269. }
  270.  
  271. if ($mode eq 'set') {
  272.     if (!$dataread) {
  273.     &pr(sprintf(_g("No alternatives for %s."), $name));
  274.     } else {
  275.     &set_alternatives($name);
  276.     }
  277. }
  278.  
  279. if (defined($linkname= readlink("$altdir/$name"))) {
  280.     if ($linkname eq $best) {
  281.         $state= 'expected';
  282.     } elsif (defined(readlink("$altdir/$name.dpkg-tmp"))) {
  283.         $state= 'expected-inprogress';
  284.     } else {
  285.         $state= 'unexpected';
  286.     }
  287. } elsif ($! == &ENOENT) {
  288.     $state= 'nonexistent';
  289. } else {
  290.     $state= 'unexpected';
  291. }
  292.  
  293. # Possible values for:
  294. #   $manual      manual, auto
  295. #   $state       expected, expected-inprogress, unexpected, nonexistent
  296. #   $mode        auto, install, remove, remove-all
  297. # all independent
  298.  
  299. if ($mode eq 'auto') {
  300.     &pr(sprintf(_g("Setting up automatic selection of %s."), $name))
  301.       if $verbosemode > 0;
  302.     unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
  303.         &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name.dpkg-tmp", $!));
  304.     unlink("$altdir/$name") || $! == &ENOENT ||
  305.         &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name", $!));
  306.     $state= 'nonexistent';
  307.     $manual= 'auto';
  308. }
  309.  
  310. #   $manual      manual, auto
  311. #   $state       expected, expected-inprogress, unexpected, nonexistent
  312. #   $mode        auto, install, remove
  313. # mode=auto <=> state=nonexistent
  314.  
  315. if ($state eq 'unexpected' && $manual eq 'auto') {
  316.     &pr(sprintf(_g("%s has been changed (manually or by a script).\n".
  317.                    "Switching to manual updates only."), "$altdir/$name"))
  318.       if $verbosemode > 0;
  319.     $manual= 'manual';
  320. }
  321.  
  322. #   $manual      manual, auto
  323. #   $state       expected, expected-inprogress, unexpected, nonexistent
  324. #   $mode        auto, install, remove
  325. # mode=auto <=> state=nonexistent
  326. # state=unexpected => manual=manual
  327.  
  328. &pr(sprintf(_g("Checking available versions of %s, updating links in %s ...\n".
  329.     "(You may modify the symlinks there yourself if desired - see \`man ln'.)"), $name, $altdir))
  330.   if $verbosemode > 0;
  331.  
  332. if ($mode eq 'install') {
  333.     if ($link ne $alink && $link ne '') {
  334.         &pr(sprintf(_g("Renaming %s link from %s to %s."), $name, $link, $alink))
  335.           if $verbosemode > 0;
  336.         rename_mv($link,$alink) || $! == &ENOENT ||
  337.             &quit(sprintf(_g("unable to rename %s to %s: %s"), $link, $alink, $!));
  338.     }
  339.     $link= $alink;
  340.     if (!defined($i= $versionnum{$apath})) {
  341.         push(@versions,$apath);
  342.         $versionnum{$apath}= $i= $#versions;
  343.     }
  344.     $priorities[$i]= $apriority;
  345.     for $sname (keys %aslavelink) {
  346.         if (!defined($j= $slavenum{$sname})) {
  347.             push(@slavenames,$sname);
  348.             $slavenum{$sname}= $j= $#slavenames;
  349.         }
  350.         $oldslavelink= $slavelinks[$j];
  351.         $newslavelink= $aslavelink{$sname};
  352.         $slavelinkcount{$oldslavelink}-- if $oldslavelink ne '';
  353.         $slavelinkcount{$newslavelink}++ &&
  354.             &quit(sprintf(_g("slave link name %s duplicated"), $newslavelink));
  355.         if ($newslavelink ne $oldslavelink && $oldslavelink ne '') {
  356.             &pr(sprintf(_g("Renaming %s slave link from %s to %s."), $sname, $oldslavelink, $newslavelink))
  357.               if $verbosemode > 0;
  358.             rename_mv($oldslavelink,$newslavelink) || $! == &ENOENT ||
  359.                 &quit(sprintf(_g("unable to rename %s to %s: %s"), $oldslavelink, $newslavelink, $!));
  360.         }
  361.         $slavelinks[$j]= $newslavelink;
  362.     }
  363.     for ($j=0; $j<=$#slavenames; $j++) {
  364.         $slavepath{$i,$j}= $aslavepath{$slavenames[$j]};
  365.     }
  366. }
  367.  
  368. if ($mode eq 'remove') {
  369.     if ($manual eq "manual" and $state ne "expected" and (map { $hits += $apath eq $_ } @versions) and $hits and $linkname eq $apath) {
  370.     &pr(_g("Removing manually selected alternative - switching to auto mode"));
  371.     $manual= "auto";
  372.     }
  373.     if (defined($i= $versionnum{$apath})) {
  374.         $k= $#versions;
  375.         $versionnum{$versions[$k]}= $i;
  376.         delete $versionnum{$versions[$i]};
  377.         $versions[$i]= $versions[$k]; $#versions--;
  378.         $priorities[$i]= $priorities[$k]; $#priorities--;
  379.         for ($j=0; $j<=$#slavenames; $j++) {
  380.             $slavepath{$i,$j}= $slavepath{$k,$j};
  381.             delete $slavepath{$k,$j};
  382.         }
  383.     } else {
  384.         &pr(sprintf(_g("Alternative %s for %s not registered, not removing."), $apath, $name))
  385.           if $verbosemode > 0;
  386.     }
  387. }
  388.  
  389. if ($mode eq 'remove-all') {
  390.    $manual= "auto";
  391.    $k= $#versions;
  392.    for ($i=0; $i<=$#versions; $i++) {
  393.         $k--;
  394.         delete $versionnum{$versions[$i]};
  395.     $#priorities--;
  396.         for ($j=0; $j<=$#slavenames; $j++) {
  397.             $slavepath{$i,$j}= $slavepath{$k,$j};
  398.             delete $slavepath{$k,$j};
  399.         }
  400.       }
  401.    $#versions=$k;
  402.  }
  403.  
  404.  
  405. for ($j=0; $j<=$#slavenames; $j++) {
  406.     for ($i=0; $i<=$#versions; $i++) {
  407.         last if $slavepath{$i,$j} ne '';
  408.     }
  409.     if ($i > $#versions) {
  410.         &pr(sprintf(_g("Discarding obsolete slave link %s (%s)."), $slavenames[$j], $slavelinks[$j]))
  411.           if $verbosemode > 0;
  412.         unlink("$altdir/$slavenames[$j]") || $! == &ENOENT ||
  413.             &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slavenames[$j]", $!));
  414.         unlink($slavelinks[$j]) || $! == &ENOENT ||
  415.             &quit(sprintf(_g("unable to remove %s: %s"), $slavelinks[$j], $!));
  416.         $k= $#slavenames;
  417.         $slavenum{$slavenames[$k]}= $j;
  418.         delete $slavenum{$slavenames[$j]};
  419.         $slavelinkcount{$slavelinks[$j]}--;
  420.         $slavenames[$j]= $slavenames[$k]; $#slavenames--;
  421.         $slavelinks[$j]= $slavelinks[$k]; $#slavelinks--;
  422.         for ($i=0; $i<=$#versions; $i++) {
  423.             $slavepath{$i,$j}= $slavepath{$i,$k};
  424.             delete $slavepath{$i,$k};
  425.         }
  426.         $j--;
  427.     }
  428. }
  429.         
  430. if ($manual eq 'manual') {
  431.     &pr(sprintf(_g("Automatic updates of %s are disabled, leaving it alone."), "$altdir/$name"))
  432.       if $verbosemode > 0;
  433.     &pr(sprintf(_g("To return to automatic updates use \`update-alternatives --auto %s'."), $name))
  434.       if $verbosemode > 0;
  435. } else {
  436.     if ($state eq 'expected-inprogress') {
  437.         &pr(sprintf(_g("Recovering from previous failed update of %s ..."), $name));
  438.         rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  439.             &quit(sprintf(_g("unable to rename %s to %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
  440.         $state= 'expected';
  441.     }
  442. }
  443.  
  444. #   $manual      manual, auto
  445. #   $state       expected, expected-inprogress, unexpected, nonexistent
  446. #   $mode        auto, install, remove
  447. # mode=auto <=> state=nonexistent
  448. # state=unexpected => manual=manual
  449. # manual=auto => state!=expected-inprogress && state!=unexpected
  450.  
  451. open(AF,">$admindir/$name.dpkg-new") ||
  452.     &quit(sprintf(_g("unable to open %s for write: %s"), "$admindir/$name.dpkg-new", $!));
  453. &paf($manual);
  454. &paf($link);
  455. for ($j=0; $j<=$#slavenames; $j++) {
  456.     &paf($slavenames[$j]);
  457.     &paf($slavelinks[$j]);
  458. }
  459. &paf('');
  460. $best= '';
  461. for ($i=0; $i<=$#versions; $i++) {
  462.     if ($best eq '' || $priorities[$i] > $bestpri) {
  463.         $best= $versions[$i]; $bestpri= $priorities[$i]; $bestnum= $i;
  464.     }
  465.     &paf($versions[$i]);
  466.     &paf($priorities[$i]);
  467.     for ($j=0; $j<=$#slavenames; $j++) {
  468.         &paf($slavepath{$i,$j});
  469.     }
  470. }
  471. &paf('');
  472. close(AF) || &quit(sprintf(_g("unable to close %s: %s"), "$admindir/$name.dpkg-new", $!));
  473.  
  474. if ($manual eq 'auto') {
  475.     if ($best eq '') {
  476.         &pr(sprintf(_g("Last package providing %s (%s) removed, deleting it."), $name, $link))
  477.           if $verbosemode > 0;
  478.         unlink("$altdir/$name") || $! == &ENOENT ||
  479.             &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$name", $!));
  480.         unlink("$link") || $! == &ENOENT ||
  481.             &quit(sprintf(_g("unable to remove %s: %s"), "$link", $!));
  482.         unlink("$admindir/$name.dpkg-new") ||
  483.             &quit(sprintf(_g("unable to remove %s: %s"), "$admindir/$name.dpkg-new", $!));
  484.         unlink("$admindir/$name") || $! == &ENOENT ||
  485.             &quit(sprintf(_g("unable to remove %s: %s"), "$admindir/$name", $!));
  486.         exit(0);
  487.     } else {
  488.         if (!defined($linkname= readlink($link)) && $! != &ENOENT) {
  489.             &pr(sprintf(_g("warning: %s is supposed to be a symlink to %s\n".
  490.                 " (or nonexistent); however, readlink failed: %s"), $link, "$altdir/$name", $!))
  491.               if $verbosemode > 0;
  492.         } elsif ($linkname ne "$altdir/$name") {
  493.             unlink("$link.dpkg-tmp") || $! == &ENOENT ||
  494.                 &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$link.dpkg-tmp", $!));
  495.             symlink("$altdir/$name","$link.dpkg-tmp") ||
  496.                 &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$link.dpkg-tmp", "$altdir/$name", $!));
  497.             rename_mv("$link.dpkg-tmp",$link) ||
  498.                 &quit(sprintf(_g("unable to install %s as %s: %s"), "$link.dpkg-tmp", $link, $!));
  499.         }
  500.         if (defined($linkname= readlink("$altdir/$name")) && $linkname eq $best) {
  501.             &pr(sprintf(_g("Leaving %s (%s) pointing to %s."), $name, $link, $best))
  502.               if $verbosemode > 0;
  503.         } else {
  504.             &pr(sprintf(_g("Updating %s (%s) to point to %s."), $name, $link, $best))
  505.               if $verbosemode > 0;
  506.         }
  507.         unlink("$altdir/$name.dpkg-tmp") || $! == &ENOENT ||
  508.             &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$altdir/$name.dpkg-tmp", $!));
  509.         symlink($best,"$altdir/$name.dpkg-tmp");
  510.     }
  511. }
  512.  
  513. rename_mv("$admindir/$name.dpkg-new","$admindir/$name") ||
  514.     &quit(sprintf(_g("unable to rename %s to %s: %s"), "$admindir/$name.dpkg-new", "$admindir/$name", $!));
  515.  
  516. if ($manual eq 'auto') {
  517.     rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  518.         &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
  519.     for ($j=0; $j<=$#slavenames; $j++) {
  520.         $sname= $slavenames[$j];
  521.         $slink= $slavelinks[$j];
  522.         $spath= $slavepath{$bestnum,$j};
  523.         unlink("$altdir/$sname.dpkg-tmp") || $! == &ENOENT ||
  524.             &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$altdir/$sname.dpkg-tmp", $!));
  525.         if ($spath eq '') {
  526.             &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $sname, $slink, $best))
  527.               if $verbosemode > 0;
  528.             unlink("$altdir/$sname") || $! == &ENOENT ||
  529.                 &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$sname", $!));
  530.         unlink("$slink") || $! == &ENOENT ||
  531.             &quit(sprintf(_g("unable to remove %s: %s"), $slink, $!));
  532.         } else {
  533.         if (!defined($linkname= readlink($slink)) && $! != &ENOENT) {
  534.         &pr(sprintf(_g("warning: %s is supposed to be a slave symlink to\n".
  535.                    " %s, or nonexistent; however, readlink failed: %s"), $slink, "$altdir/$sname", $!))
  536.             if $verbosemode > 0;
  537.         } elsif ($linkname ne "$altdir/$sname") {
  538.         unlink("$slink.dpkg-tmp") || $! == &ENOENT ||
  539.             &quit(sprintf(_g("unable to ensure %s nonexistent: %s"), "$slink.dpkg-tmp", $!));
  540.         symlink("$altdir/$sname","$slink.dpkg-tmp") ||
  541.             &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$slink.dpkg-tmp", "$altdir/$sname", $!));
  542.         rename_mv("$slink.dpkg-tmp",$slink) ||
  543.             &quit(sprintf(_g("unable to install %s as %s: %s"), "$slink.dpkg-tmp", $slink, $!));
  544.         }
  545.             if (defined($linkname= readlink("$altdir/$sname")) && $linkname eq $spath) {
  546.                 &pr(sprintf(_g("Leaving %s (%s) pointing to %s."), $sname, $slink, $spath))
  547.                   if $verbosemode > 0;
  548.             } else {
  549.                 &pr(sprintf(_g("Updating %s (%s) to point to %s."), $sname, $slink, $spath))
  550.                   if $verbosemode > 0;
  551.             }
  552.             symlink("$spath","$altdir/$sname.dpkg-tmp") ||
  553.                 &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$sname.dpkg-tmp", $spath, $!));
  554.             rename_mv("$altdir/$sname.dpkg-tmp","$altdir/$sname") ||
  555.                 &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$sname.dpkg-tmp", "$altdir/$sname", $!));
  556.         }
  557.     }
  558. }
  559.  
  560. sub config_message {
  561.     if ($#versions == 0) {
  562.     print "\n";
  563.     printf _g("There is only 1 program which provides %s\n".
  564.               "(%s). Nothing to configure.\n"), $name, $versions[0];
  565.     return;
  566.     }
  567.     print STDOUT "\n";
  568.     printf(STDOUT _g("There are %s alternatives which provide \`%s'.\n\n".
  569.                      "  Selection    Alternative\n".
  570.                      "-----------------------------------------------\n"),
  571.                   $#versions+1, $name);
  572.     for ($i=0; $i<=$#versions; $i++) {
  573.     printf(STDOUT "%s%s %8s    %s\n",
  574.         (readlink("$altdir/$name") eq $versions[$i]) ? '*' : ' ',
  575.         ($best eq $versions[$i]) ? '+' : ' ',
  576.         $i+1, $versions[$i]);
  577.     }
  578.     printf(STDOUT "\n"._g("Press enter to keep the default[*], or type selection number: "));
  579. }
  580.  
  581. sub config_alternatives {
  582.     do {
  583.     &config_message;
  584.     if ($#versions == 0) { return; }
  585.     $preferred=<STDIN>;
  586.     chop($preferred);
  587.     } until $preferred eq '' || $preferred>=1 && $preferred<=$#versions+1 &&
  588.     ($preferred =~ m/[0-9]*/);
  589.     if ($preferred ne '') {
  590.         $manual = "manual";
  591.     $preferred--;
  592.     printf STDOUT _g("Using \`%s' to provide \`%s'.")."\n", $versions[$preferred], $name;
  593.     my $spath = $versions[$preferred];
  594.     symlink("$spath","$altdir/$name.dpkg-tmp") ||
  595.         &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$name.dpkg-tmp", $spath, $!));
  596.     rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  597.         &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
  598.     # Link slaves...
  599.     for( my $slnum = 0; $slnum < @slavenames; $slnum++ ) {
  600.         my $slave = $slavenames[$slnum];
  601.         if ($slavepath{$preferred,$slnum} ne '') {
  602.         checked_symlink($slavepath{$preferred,$slnum},
  603.             "$altdir/$slave.dpkg-tmp");
  604.         checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
  605.         } else {
  606.         &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $slave, $slavelinks[$slnum], $versions[$preferred]))
  607.             if $verbosemode > 0;
  608.         unlink("$altdir/$slave") || $! == &ENOENT ||
  609.             &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slave", $!));
  610.         }
  611.     }
  612.  
  613.     }
  614. }
  615.  
  616. sub set_alternatives {
  617.    $manual = "manual";
  618.    # Get prefered number
  619.    $preferred = -1;
  620.    for ($i=0; $i<=$#versions; $i++) {
  621.      if($versions[$i] eq $apath) {
  622.        $preferred = $i;
  623.        last;
  624.      }
  625.    }
  626.    if($preferred == -1){
  627.      &quit(sprintf(_g("Cannot find alternative `%s'."), $apath)."\n")
  628.    }
  629.    printf STDOUT _g("Using \`%s' to provide \`%s'.")."\n", $apath, $name;
  630.    symlink("$apath","$altdir/$name.dpkg-tmp") ||
  631.      &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), "$altdir/$name.dpkg-tmp", $apath, $!));
  632.    rename_mv("$altdir/$name.dpkg-tmp","$altdir/$name") ||
  633.      &quit(sprintf(_g("unable to install %s as %s: %s"), "$altdir/$name.dpkg-tmp", "$altdir/$name", $!));
  634.    # Link slaves...
  635.    for( $slnum = 0; $slnum < @slavenames; $slnum++ ) {
  636.      $slave = $slavenames[$slnum];
  637.      if ($slavepath{$preferred,$slnum} ne '') {
  638.        checked_symlink($slavepath{$preferred,$slnum},
  639.                "$altdir/$slave.dpkg-tmp");
  640.        checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
  641.      } else {
  642.        &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $slave, $slavelinks[$slnum], $versions[$preferred]))
  643.      if $verbosemode > 0;
  644.        unlink("$altdir/$slave") || $! == &ENOENT ||
  645.      &quit(sprintf(_g("unable to remove %s: %s"), "$altdir/$slave", $!));
  646.      }
  647.    }
  648. }
  649.  
  650. sub pr { print(STDOUT "@_\n") || &quit(sprintf(_g("error writing stdout: %s"), $!)); }
  651. sub paf {
  652.     $_[0] =~ m/\n/ && &quit(sprintf(_g("newlines prohibited in update-alternatives files (%s)"), $_[0]));
  653.     print(AF "$_[0]\n") || &quit(sprintf(_g("error writing stdout: %s"), $!));
  654. }
  655. sub gl {
  656.     $!=0; $_= <AF>;
  657.     length($_) || &quit(sprintf(_g("error or eof reading %s for %s (%s)"), "$admindir/$name", $_[0], $!));
  658.     s/\n$// || &badfmt(sprintf(_g("missing newline after %s"), $_[0]));
  659.     $_;
  660. }
  661. sub badfmt {
  662.     &quit(sprintf(_g("internal error: %s corrupt: %s"), "$admindir/$name", $_[0]));
  663. }
  664. sub rename_mv {
  665.     return (rename($_[0], $_[1]) || (system(("mv", $_[0], $_[1])) == 0));
  666. }
  667. sub checked_symlink {
  668.     my ($filename, $linkname) = @_;
  669.     symlink($filename, $linkname) ||
  670.     &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), $linkname, $filename, $!));
  671. }
  672. sub checked_mv {
  673.     my ($source, $dest) = @_;
  674.     rename_mv($source, $dest) ||
  675.     &quit(sprintf(_g("unable to install %s as %s: %s"), $source, $dest, $!));
  676. }
  677. sub config_all {
  678.     opendir ADMINDIR, $admindir or die sprintf(_g("Serious problem: %s"), $!);
  679.     my @filenames = grep !/^\.\.?$/, readdir ADMINDIR;
  680.     close ADMINDIR;
  681.     foreach my $name (@filenames) {
  682.         system "$0 --config $name";
  683.         exit $? if $?;
  684.     }
  685.     exit(0);
  686. }
  687. exit(0);
  688.  
  689. # vim: nowrap ts=8 sw=4
  690.